use strict;
use warnings;
use CDMA;

# test f-cji scramble
print "test f-cji scramble:\n\n";
my @a = qw(2 4 5 1 8 2 3 1 4);
my @b = qw(1 -2 4);
my $c = CDMA::scramble(@a, @b);
print "@a\n@b\n@$c\n\n";
@a = qw(2 4 5 1 8 2 3 1 4 4 12 -2);
@b = qw(1 -2 4 -1);
$c = CDMA::scramble(@a, @b);
print "@a\n@b\n@$c\n";
